home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)tf.d64 / proc.reveal < prev    next >
Text File  |  2009-01-03  |  276b  |  13 lines
  1. 1460 ╨╥╧├ REVEAL ├╠╧╙┼─
  2. 1470   PT:=╨┼┼╦($16)+╨┼┼╦($17)*256
  3. 1480   LIN:=10010
  4. 1490   ╠╧╧╨ 
  5. 1500     L:=╨┼┼╦(PT+2)
  6. 1510     ┼╪╔╘ ╫╚┼╬ L=0
  7. 1520     ╨╧╦┼ PT,LIN ─╔╓ 256
  8. 1530     ╨╧╦┼ PT+1,LIN ═╧─ 256
  9. 1540     ╨╥╔╬╘ "*",
  10. 1550     PT:+L; LIN:+10
  11. 1560   ┼╬─╠╧╧╨ 
  12. 1570 ┼╬─╨╥╧├ REVEAL
  13.